home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1994 February / 64er_Magazin_94-02_1994_Markt__Technik_de.d64 / led-demo v2.0 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-01-01  |  1.1 KB  |  35 lines
  1. 10 rem ********************************
  2. 20 rem * (c) 1993 by trainsoft        *
  3. 30 rem *                              *
  4. 40 rem * (w) by sven stolzenberg      *
  5. 50 rem *        an der kaisermuehle 4 *
  6. 60 rem *        41747 viersen 1       *
  7. 70 rem ********************************
  8. 80 rem  *********
  9. 90 rem  * menue *
  10. 100 rem *********
  11. 110 poke53280,.:poke53281,3
  12. 120 print"[147][144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  13. 130 print"[221][146]                                      [221]";
  14. 140 print"[221][146]   demo-programm zur steuerbaren led  [221]";
  15. 150 print"[221][146]                                      [221]";
  16. 160 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  17. 170 input"einschaltzeitraum :";a
  18. 180 input"ausschaltzeitraum :";b
  19. 190 print"   erneute eingabe nach druecken der"
  20. 200 print"   space-taste !"
  21. 210 rem *******************************
  22. 220 rem *steuerung des prozessor-ports*
  23. 230 rem *******************************
  24. 240 poke .,peek(.) and not 16
  25. 250 poke .,peek(.) or 16
  26. 260 for i=. to a:next
  27. 270 poke 192,1:poke 1,peek(1) or 32
  28. 280 for j=. to b:next
  29. 290 poke 1,peek(1) and 39:poke 192,.
  30. 300 rem *******************
  31. 310 rem * tastaturabfrage *
  32. 320 rem *******************
  33. 330 get a$:if a$="" then 260
  34. 340 if a$=chr$(32) then 110
  35.